unit frBillPage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frNavigatePage, fBrowserBase;

type
  TfrmBillPage = class(TfrmNavigatePage)
  private
    { Private declarations }

  protected
    FBrowserForm: TForm;
    FEmbedForm: TForm;
    procedure EmbedForm(AFormClass: TFormClass; AFormName: string);    
  public
    { Public declarations }
    procedure InitBrowserForm(AFormName: string = ''); virtual;
    procedure SelectClass(AClass: string; ADepartment: string); virtual;
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
  end;

  TfrmBillPageClass = class of TfrmBillPage;

var
  frmBillPage: TfrmBillPage;

implementation

{$R *.dfm}

procedure TfrmBillPage.InitBrowserForm(AFormName: string = '');
begin
  
end;

procedure TfrmBillPage.SelectClass(AClass: string; ADepartment: string);
begin

end;

procedure TfrmBillPage.EmbedForm(AFormClass: TFormClass; AFormName: string);
begin
  FEmbedForm := AFormClass.Create(Self.Owner);
  FEmbedForm.Name := AFormName;
  FEmbedForm.FormStyle := fsNormal;
  FEmbedForm.WindowState := wsNormal;
  FEmbedForm.Parent := Self;
  FEmbedForm.BorderStyle := bsNone;
  FEmbedForm.Align := alClient;
  FEmbedForm.Visible := True;
end;

constructor TfrmBillPage.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TfrmBillPage.Destroy;
begin
  FreeAndNil(FEMbedFOrm);
  FreeAndNil(FBrowserForm);
  inherited Destroy;
end;

end.
